      data LMHMbs(3) /10.2000/

      data (RGBb_coef(3,i),i=1,nRGBbc) /
     &     +2.821740D-01,
     &     +1.149380D+00,
     &     +1.884450D+00,
     &     -1.082300D+00,
     &     +0.000000D+00/

!     0.01000     LMR1
      data (mrange(3,1,i),i=1,3) /0,4,1/
      data (rrange(3,1,i),i=1,3) /0,4,1/
      data (alphas(3,1,i),i=1,25) /
     &     +1.61732010479488863552D+01,
     &     -6.07511035663581200339D+00,
     &     +8.58287622972541264232D+00,
     &     -3.10585034200754250833D+00,
     &     -7.06748010502642909358D-01,
     &     -1.90469269583824840630D+00,
     &     +4.00007719345960026658D+01,
     &     -8.46518605722360462096D+01,
     &     +5.91797386241528400319D+01,
     &     -1.13107588613914398223D+01,
     &     -8.70230071618597023075D+00,
     &     -2.89910577605233434895D+01,
     &     +1.24597859970597440338D+02,
     &     -1.16207323210657051504D+02,
     &     +3.01232264093183879083D+01,
     &     +1.54664218136763143008D+01,
     &     -1.42381111546532466150D+01,
     &     -5.53996704254122320776D+01,
     &     +7.85240667339935924929D+01,
     &     -2.52702301461299612129D+01,
     &     -4.23582571635512561414D+00,
     &     +9.21228272981120710483D+00,
     &     +6.44366319286792332832D+00,
     &     -1.82412432120631002874D+01,
     &     +7.14935319397919499806D+00/
      
!     0.01000     LMR2
      data (mrange(3,2,i),i=1,3) /0,5,1/
      data (rrange(3,2,i),i=1,3) /0,5,1/
      data (alphas(3,2,i),i=1,36) /
     &     +1.59314592243044277353D+01,
     &     -4.60401610759330548461D+00,
     &     +6.24185962640975233739D+00,
     &     -4.97550125746145077699D+00,
     &     +1.93048999642347540728D+00,
     &     -2.89477547622687292339D-01,
     &     +1.01061304060731380616D+01,
     &     -3.46086484084549255158D+01,
     &     +5.27667822465917879526D+01,
     &     -3.86837936682783691822D+01,
     &     +1.36020700266615026663D+01,
     &     -1.85012309699758370485D+00,
     &     +2.00677620782971253277D+01,
     &     -2.26769827650059667690D+01,
     &     -1.15679690058618760418D+01,
     &     -5.80771237470029455530D-01,
     &     +1.37546460492662188102D+01,
     &     -4.53156102738701349608D+00,
     &     -5.09057297132129690453D+02,
     &     +1.15813297915374073455D+03,
     &     -8.67528490581213873156D+02,
     &     +3.72884696292590604116D+02,
     &     -1.38863311991984033966D+02,
     &     +2.83694073141493667833D+01,
     &     +2.61623056004032514466D+03,
     &     -6.70644555846752700745D+03,
     &     +6.13584072176503832452D+03,
     &     -2.70631835697935139251D+03,
     &     +6.36762028562752561811D+02,
     &     -7.14561574114333950547D+01,
     &     -2.63489815083014082120D+03,
     &     +7.38504520674821560533D+03,
     &     -7.50607780122314488835D+03,
     &     +3.63058087806650701168D+03,
     &     -8.69070310941866864596D+02,
     &     +8.58816125753537704668D+01/
      
!     0.01000     LMA
      data (mrange(3,3,i),i=1,3) /0,14,2/
      data (rrange(3,3,i),i=1,3) /0,20,1/
      data (alphas(3,3,i),i=1,168) /
     &     -2.09773228588053607382D+05,
     &     +1.43389594778738403693D+06,
     &     -7.75133130475684534758D+06,
     &     +3.63601069582714810967D+07,
     &     -1.18813444845486640930D+08,
     &     +2.60283723461131542921D+08,
     &     -3.91364485037142515182D+08,
     &     +4.10038222587301969528D+08,
     &     -2.94145223515916526318D+08,
     &     +1.30304661949904114008D+08,
     &     -1.72744424556804075837D+07,
     &     -2.00820756134503111243D+07,
     &     +1.57965446997256800532D+07,
     &     -5.16442762537559401244D+06,
     &     +2.88797206094442051835D+05,
     &     +4.85840419889588956721D+05,
     &     -2.37449358671291265637D+05,
     &     +5.89009159964685095474D+04,
     &     -8.73970189435798602062D+03,
     &     +7.40523972585050728412D+02,
     &     -2.77978725470881755655D+01,
     &     +1.24556972785087689757D+08,
     &     -1.05485290802952396870D+09,
     &     +4.02473985730900144577D+09,
     &     -9.11583314025122642517D+09,
     &     +1.35512409280278778076D+10,
     &     -1.37244791677059879303D+10,
     &     +9.40152573164973068237D+09,
     &     -4.02953830579527378082D+09,
     &     +7.38075188234021663666D+08,
     &     +2.04097261853698253632D+08,
     &     -1.31296867969154432416D+08,
     &     -3.72527087734079034999D+06,
     &     +2.13105948168305270374D+07,
     &     -5.90374779784860368818D+06,
     &     -1.58750756547301629325D+05,
     &     +1.73802705629212403437D+05,
     &     +1.34389908452468196629D+05,
     &     -8.46886743101308384212D+04,
     &     +2.01200486051142797805D+04,
     &     -2.33582333582660248794D+03,
     &     +1.10848048996528689258D+02,
     &     +5.05357352773523867130D+08,
     &     -3.31354820566867399216D+09,
     &     +9.55477016233197402954D+09,
     &     -1.56750020973316497803D+10,
     &     +1.55897307926384067535D+10,
     &     -8.83530815627405929565D+09,
     &     +1.63784678158393263817D+09,
     &     +1.26310745307742381096D+09,
     &     -9.06822750568983674049D+08,
     &     +1.67932512482709646225D+08,
     &     -1.23911428774325661361D+07,
     &     +5.71523280062625110149D+07,
     &     -4.26682323901077881455D+07,
     &     +8.90929416129896789789D+06,
     &     +1.67166402933667809702D+06,
     &     -4.69427729580903833266D+05,
     &     -5.00381548112256336026D+05,
     &     +3.01400804692653589882D+05,
     &     -7.32120482670434430474D+04,
     &     +8.80328726870056379994D+03,
     &     -4.34033934541470671320D+02,
     &     -1.07852724296717691422D+09,
     &     +6.84582537129478645325D+09,
     &     -1.98636935069379844666D+10,
     &     +3.49891808203243942261D+10,
     &     -4.16472301939004364014D+10,
     &     +3.48742082858454284668D+10,
     &     -2.03515912933958663940D+10,
     &     +7.63230475433247947693D+09,
     &     -1.32354384835169196129D+09,
     &     -1.69552074669079929590D+08,
     &     +6.97440331351650208235D+07,
     &     +4.60175066012795269489D+07,
     &     -2.68479745975134037435D+07,
     &     +2.40770592574207345024D+06,
     &     +2.26369602661154372618D+06,
     &     -1.54705866766018536873D+06,
     &     +7.80276827808928559534D+05,
     &     -2.90525562987123674247D+05,
     &     +6.73388625471522245789D+04,
     &     -8.55506609125114846393D+03,
     &     +4.57366957264935876992D+02,
     &     +6.01887171994113349915D+09,
     &     -3.59631408617360916138D+10,
     &     +9.21373711482781219482D+10,
     &     -1.30859993208645553589D+11,
     &     +1.09869343601253295898D+11,
     &     -5.19391019925100326538D+10,
     &     +9.93795400740454673767D+09,
     &     +1.17822075295209312439D+09,
     &     +2.08547094828250437975D+08,
     &     -7.77891584686658740044D+08,
     &     +9.79231656343366652727D+07,
     &     +1.46029283089236587286D+08,
     &     -5.63426838521486073732D+07,
     &     -4.34994308839864679612D+04,
     &     +2.67452041592313116416D+06,
     &     +2.48601794890810997458D+05,
     &     -2.88661329611176857725D+05,
     &     +3.44704079574566349038D+04,
     &     +4.71065540904905537900D+03,
     &     -1.22791766059891961049D+03,
     &     +6.52659303871330394031D+01,
     &     +4.09839446260637617111D+09,
     &     -1.19243749172475032806D+10,
     &     +6.44260733488419055939D+08,
     &     +4.01784270278003311157D+10,
     &     -7.02370927844391479492D+10,
     &     +5.53928774156074829102D+10,
     &     -1.99839479763696517944D+10,
     &     +1.21178171327214643359D+08,
     &     +2.12195873823345303535D+09,
     &     -3.04125284478327631950D+08,
     &     -1.36583732859478831291D+08,
     &     +1.00033640716232210398D+07,
     &     +2.11985158940840736032D+07,
     &     -1.41918619870038777590D+07,
     &     +1.06037309161468278617D+07,
     &     -4.77449659335303772241D+06,
     &     +7.63050677152805146761D+05,
     &     +1.56993307696408010088D+05,
     &     -8.52750815847208868945D+04,
     &     +1.33620566100046889915D+04,
     &     -7.54749310106248799457D+02,
     &     -2.77498112127752447128D+09,
     &     +1.99816442713947868347D+10,
     &     -4.77683150712246398926D+10,
     &     +5.04117814886737747192D+10,
     &     -1.67946036119296798706D+10,
     &     -1.38693190414022674561D+10,
     &     +1.56277095143661766052D+10,
     &     -4.57458119846564769745D+09,
     &     -8.68468246746188163757D+08,
     &     +7.75119369125685334206D+08,
     &     -1.16491136086922392249D+08,
     &     +1.47421104143672753125D+07,
     &     -1.52535673836318179965D+07,
     &     -1.70087987937960936688D+06,
     &     +4.67476437233580090106D+06,
     &     -1.17463899375570146367D+06,
     &     -1.10623359788225745433D+05,
     &     +8.96177599209738109494D+04,
     &     -1.26272792247867328115D+04,
     &     +2.57183382652074556063D+02,
     &     +4.53946488958070730746D+01,
     &     -1.19404109194643745422D+10,
     &     +4.75026388992112045288D+10,
     &     -8.02570569421333770752D+10,
     &     +7.41607800924110260010D+10,
     &     -4.05307739822724685669D+10,
     &     +1.41796423462739467621D+10,
     &     -4.56807621318898487091D+09,
     &     +1.94941044600867557526D+09,
     &     -5.25762401084450244904D+08,
     &     -4.20587376462206020951D+07,
     &     +1.47395545866844896227D+07,
     &     +5.00008831927335187793D+07,
     &     -3.55091173088149204850D+07,
     &     +1.31608539435279052705D+07,
     &     -4.59113670743147470057D+06,
     &     +1.81956762125828582793D+06,
     &     -5.94762161201574141160D+05,
     &     +1.30033906684856090578D+05,
     &     -1.75126293747036870627D+04,
     &     +1.30486252871918713936D+03,
     &     -4.01670777875890010478D+01/
      
!     0.01000     HM
      data (mrange(3,4,i),i=1,3) /0,10,1/
      data (rrange(3,4,i),i=1,3) /0,16,1/
      data (alphas(3,4,i),i=1,176) /
     &     +2.17405636868515895912D+05,
     &     +2.06852476160948835313D+07,
     &     -6.14611410296131018549D+06,
     &     -3.71233464909802228212D+07,
     &     +2.59646896356047354639D+07,
     &     +2.70401430864754803479D+07,
     &     -5.03161212555342614651D+07,
     &     +3.58598481040194258094D+07,
     &     -1.78006177931661754847D+07,
     &     +9.30532460730251483619D+06,
     &     -5.15848465171259269118D+06,
     &     +2.19027753214642358944D+06,
     &     -5.81644839415979455225D+05,
     &     +7.99240321203274652362D+04,
     &     -2.51621643905049268142D+03,
     &     -3.81475220523696918917D+02,
     &     -3.06765020921669416130D+07,
     &     -7.19287141298301517963D+07,
     &     -4.77435954108010306954D+07,
     &     +4.06090998470959842205D+08,
     &     -4.94869498500309586525D+08,
     &     +2.69898549761012136936D+08,
     &     -7.97774313283056169748D+07,
     &     +4.26528677017149850726D+07,
     &     -4.68106602932079061866D+07,
     &     +3.02614077510188445449D+07,
     &     -1.02789476280537806451D+07,
     &     +1.48880611471109278500D+06,
     &     +6.37803643199263970018D+04,
     &     -1.54060450772956992296D+04,
     &     -1.20700325670922356949D+04,
     &     +2.24656015193673965769D+03,
     &     +1.75066912655571192503D+08,
     &     +6.56024659875666722655D+07,
     &     +1.23625106866149380803D+08,
     &     -8.66427535415050864220D+08,
     &     +1.04647074302398228645D+09,
     &     -5.43304198956838369370D+08,
     &     +6.62721930982138589025D+07,
     &     +6.96526135511116981506D+07,
     &     -3.78209700669894739985D+07,
     &     +5.84715094197653792799D+06,
     &     +1.18073224759165989235D+06,
     &     -3.39494064604910614435D+05,
     &     -1.30009674988549915724D+05,
     &     +2.04151331991039405693D+04,
     &     +1.63426397272586054896D+04,
     &     -3.46623073630780800158D+03,
     &     -4.40378749002870142460D+08,
     &     +1.90811958049112737179D+08,
     &     -3.46994414631571888924D+08,
     &     +1.03839183062096667290D+09,
     &     -1.09191434318746423721D+09,
     &     +6.03376176521021485329D+08,
     &     -1.86538522271839350462D+08,
     &     +3.01234692302216663957D+07,
     &     -2.60876296034886920825D+06,
     &     -5.91722311695919837803D+05,
     &     -1.04200386924736900255D+05,
     &     +4.46675275850050500594D+05,
     &     -9.51964972779181844089D+04,
     &     +3.58457144797106002443D+03,
     &     -1.11371310452127327153D+04,
     &     +2.85845040236972772618D+03,
     &     +5.72344695093964815140D+08,
     &     -5.13427680762670874596D+08,
     &     +7.89372994735144257545D+08,
     &     -1.00183048339205336571D+09,
     &     +4.85858157195736885071D+08,
     &     -3.68810635419888198376D+07,
     &     -6.77671612100235223770D+07,
     &     +3.51244092417839094996D+07,
     &     -4.04172301070910505950D+06,
     &     +4.42372389482865459286D+05,
     &     -1.11637046404088055715D+06,
     &     +1.32348000868789851665D+05,
     &     +5.77673805733840563335D+04,
     &     +1.39889883355121310160D+03,
     &     +1.84537734558708234545D+03,
     &     -1.29546033045933745598D+03,
     &     -3.11964641996447086334D+08,
     &     +3.20795370867759823799D+08,
     &     -9.73902886296924829483D+08,
     &     +1.11109912862654781342D+09,
     &     -3.31644242757628619671D+08,
     &     -7.20401027258160263300D+07,
     &     +5.49449315561505854130D+07,
     &     -1.50211363970660679042D+07,
     &     +4.37729396379113662988D+05,
     &     +1.78953864822479896247D+06,
     &     -9.64483419783796125557D+04,
     &     -1.03372025982109145843D+05,
     &     +2.27654966719349886262D+03,
     &     -9.21556404868084791815D+03,
     &     +2.29694125905770533791D+03,
     &     +2.69172643454379056038D+02,
     &     -1.47363671236134380102D+08,
     &     +3.98069493547490179539D+08,
     &     +3.80600399916491806507D+08,
     &     -7.77899828440285444260D+08,
     &     +2.13971953739619493484D+08,
     &     +7.50766140657877773046D+07,
     &     -1.24408092643524613231D+07,
     &     -1.19486997694680951536D+07,
     &     +1.72403185042079538107D+06,
     &     +5.82624710496194384177D+04,
     &     +6.62807449280618020566D+04,
     &     -5.73858576309664931614D+03,
     &     +7.87238279678164053621D+03,
     &     +5.58027583166682688898D+02,
     &     -7.80191280094344847384D+02,
     &     -4.41524171396966949033D+01,
     &     +3.70057909980202019215D+08,
     &     -8.43582286640240669250D+08,
     &     +3.06515664902774870396D+08,
     &     +2.79680007567675352097D+08,
     &     -1.31316622141129702330D+08,
     &     -4.78340494412834197283D+07,
     &     +2.05878316230771690607D+07,
     &     +4.84660386411372851580D+06,
     &     -1.28697308684668410569D+06,
     &     -4.26216149967036908492D+05,
     &     +1.35944377558333886554D+05,
     &     -2.78481544974478456425D+04,
     &     +6.38116677538639805789D+02,
     &     +1.86324844948431268676D+03,
     &     -3.54990721623104548144D+02,
     &     +4.62881801006983621960D+01,
     &     -2.73364609220364511013D+08,
     &     +6.70469859252789497375D+08,
     &     -4.83480623472343206406D+08,
     &     +4.03385611767915189266D+07,
     &     +7.35016723277738541365D+07,
     &     -1.62650907308186870068D+07,
     &     -2.72791540988075407222D+06,
     &     +3.87529004919559811242D+04,
     &     +2.21605940650244883727D+05,
     &     -4.99119267431606931495D+04,
     &     +3.88533899694829306100D+04,
     &     -4.12454335026239914441D+03,
     &     -5.45806706724830746680D+02,
     &     -7.47011879871399173680D+02,
     &     +2.58488648387669854856D+02,
     &     -2.59121452073608971034D+01,
     &     +1.00383462413229718804D+08,
     &     -2.74271434515541374683D+08,
     &     +2.71244504862839102745D+08,
     &     -1.11115631573666274548D+08,
     &     +4.91877530747146159410D+06,
     &     +1.25292149804861973971D+07,
     &     -5.59249804659485630691D+06,
     &     +1.28330904890557797626D+06,
     &     -1.04317198392582082306D+05,
     &     -9.62038930517230619444D+03,
     &     -3.97809489634518195089D+03,
     &     -5.57959747341926686204D+02,
     &     +8.89096577259679747840D+02,
     &     -5.60425945702165773099D+00,
     &     -4.78179067842277234490D+01,
     &     +5.74915010119235514452D+00,
     &     -1.55431711502586677670D+07,
     &     +4.79521485383154302835D+07,
     &     -6.02665872499209195375D+07,
     &     +4.05979536634513586760D+07,
     &     -1.60619130310957916081D+07,
     &     +3.70530953097213804722D+06,
     &     -3.78917655865714070387D+05,
     &     -1.84983833769938682963D+04,
     &     -6.31914341540330042335D+03,
     &     +7.89696836505760438740D+03,
     &     -2.17729950811668868482D+03,
     &     +7.29602008514560338881D+02,
     &     -2.38483209776185589135D+02,
     &     +2.80674740177570534172D+01,
     &     +1.83297935389278832119D+00,
     &     -4.35700622586662367208D-01/
      
!     0.01000     Recom
      data (mrange(3,5,i),i=1,3) /0,5,1/
      data (rrange(3,5,i),i=1,3) /0,4,1/
      data (alphas(3,5,i),i=1,30) /
     &     +1.29690611505892015032D+01,
     &     +1.15133146967729094179D+00,
     &     -2.03151799780861574973D+00,
     &     +1.18911797645565364689D+00,
     &     -2.35730192355203121979D-01,
     &     +6.77126934573034411358D-01,
     &     +8.12545635631524709730D-01,
     &     +1.02571355665047869721D+00,
     &     -1.20203984384456630252D+00,
     &     +3.31810706642633568286D-01,
     &     -2.98789230039933073613D+00,
     &     +4.40181013672451193486D+00,
     &     -3.18890331653727177041D+00,
     &     +8.83079598994844006121D-01,
     &     -1.51558396747922291548D-01,
     &     +6.22545012651770335310D+00,
     &     -1.26234063625864720848D+01,
     &     +8.89677911090983108977D+00,
     &     -2.01593702143950714856D+00,
     &     +1.24221816733169190816D-01,
     &     -3.48677279439661846894D+00,
     &     +8.37556424986163960966D+00,
     &     -6.53850783620592235224D+00,
     &     +1.69898655557246569536D+00,
     &     -1.21208024376684805890D-01,
     &     +4.04481505949380593101D-01,
     &     -1.37770027286069152161D+00,
     &     +1.26623104358849225548D+00,
     &     -3.70847513213560797674D-01,
     &     +3.04915286309964846112D-02/
